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SECTION  1.  INTRODUCTION 

1.1.  Purpose  of  the  Validation  Summary  Report 

^The  purpose  of  the  Validation  Summary  Report  (VSR)  Is  to  identify  individual 
COBOL  language  elements  vhose  usage  does  not  conform  to  Federal  Standard  C030L 
as  adopted  from  American  National  Standard  COBOL  (XS.23-19SS)  by  federal 
Information  Processing  Standards  Publication  21  (FIPS  PJB  21). 


1.2.  Preparation  «^f  VSR  | 

^ he  Validation  Summary  Report  is  prepared  by  analyzing  the  results  of  running 
the  COBOL  Compiler  Validation  System  (CCVS).  The  COBOL  Compiler  Validation 
System  consists  of  audit  routines  containing  features  of  federal  Standard  COBOL* 
their  related  data*  and  an  executive  routine  (V^-routine)  vhich  prepares  the 
audit  routines  for  compilation.  Each  audit  routine  is  a COBOL  proqram  which 
includes  tests  and  supporting  procedures  used  to  indicate  the  results  of  the 
tests. 


The  testing  of  a compiler  in  a particular  hardvare/operat ing  system  environment 
is  accomplished  by  compiling  and  executing  each  audit  routine.  l^he  report 
produced  by  each  routine  indicates  whether  the  compiler  passed  fa  i led  the 
tests  contained  in  the  routine.  \ 

If  the  compiler  rejects  same  language  elements  by  terainating  compilation* 
giving  fatal  diagnostic  messages*  or  terminating  execution  abnormally*  then 
the  test  containing  the  code  the  compiler  was  unable  to  process  is  deleted  and 
the  audit  routine  compilation  and  execution  repeated. 

The  coepilation  listings  3nd  the  output  reports  of  the  audit  routines  con- 
stitute the  raw  data  from  which  the  members  of  the  federal  COBOL  Compiler 
Testing  Service  produce  a Validation  Summary  Report. 

1.3.  Organization  of  the  VSR 

The  Validation  Summary  Report  is  made  up  of  several  sections  the  contents  of 
wnich  are  descrioed  below: 


a.  Section  2 summarizes  the  results  of  the  compilation  and  execution 
of  the  programs  comprising  the  COBOL  Compiler  Validation  System. 

Section  2 is  subdivided  into  Section  2.1*  syntax  not  accepted  by  the  compiler* 
and  Section  2.2*  semantic  differences  between  the  compiler  implementation  and 
the  language  specification.  All  errors  are  grouped  by  processing  nodule. 

b.  TIPS  PUB  21  defines  four  levels  of  Federal  Standard  COBOL. 

Section  3 of  the  VSR  lists  the  discrepancies  described  in  Section  2 by  the  . 
level  in  which  the  problem  occurs. 

c.  Section  A contains  information  obtained  during  the  validation  process 


which#  while  not  impacting  the  status  of  the  coapUer  with  respect  to  the 
defined  federal  COBOL  levels/  nay  be  of  Interest  to  a user  of  the  compiler. 

d.  Section  5 contains  Information  which  describes  the  software  environ- 
aent  in  which  the  compiler  was  tested.  This  includes  the  naae  and  version 

of  the  coapilrr;  the  naae  and  version  of  the  operating  systea;  the  iaple- 
aentor-naaes  which  were  used  in  the  Environment  Division  of  the  programs  com- 
prising the  CCVS;  the  options  used  with  the  compiler;  and  if  applicable# 
information  regarding  the  use  of  compiler  optimization  features. 

e.  Appendix  A is  the  Validation  Summary  Working  Document#  a working 
paper  resulting  from  the  compilation  and  execution  of  the  CCVS#  and  froa  which 
the  VSR  is  derived. 

1.4.  Compliance  to  TIPS  PUB  21 

Definition  of  an  1 ap l eaent a t ion  of  USA  Standard  C093L 


(excerots  from  American  National  Standard  C333L  *3. 23-1953#  Chapter  1) 

Throughout  the  USA  Standard  COBOL  specifications#  there  are  certain  language 
elements  that  depend#  for  their  iitpl eaent at i pn#  on  particular  types  of  hard- 
ware components.  The  implementor  specifies  the  minimum  hardware  configuration 
required  for  a given  i mpl em ent at i on  of  USA  Standard  C3B3L  and  the  hardware 
components  that  it  supports.  Any  lanquaoe  eleaents  that  depend  on  hardware 
components  for  which  support  is  claimed  must  be  implemented.  Lannuage  ele- 
ments that  are  not  implemented  because  of  their  deoendence  on  hardware  com- 
ponents whose  support  is  not  claimed  for  an  implementation  aust  be  so  specified 
and  their  absence  will  not  render  the  implementation  nonstandard. 

When  a facility  is  orovided  that  accomplishes  the  function  specified  by  any 
particular  COBOL  element#  it  may  be  unnecessary  to  include  that  particular 
element  within  the  COBOL  source  proqram.  If  such  an  unnecessary  element  does 
appear  in  the  source  program#  it  aust  be  accepted  by  the  compiler.  However# 
if  the  element  does  not  lead  to  the  production  of  object  code#  no  substitute 
statements  shall  be  required  within  the  COBOL  source  program  to  accomplish  this 
function. 

3 y the  same  token#  the  inclusion  of  language  elements  or  of  functions  that  are 
not  a part  of  the  USA  Standard  COBOL  specifications  will  not  render  an  imole- 
aentation  of  USA  Standard  COBOL  nonstandard.  This  is  true  even  though  it  aay 
imply  the  extension  of  the  list  oi  reserved  words  by  the  implementor#  and  pre- 
vent proper  compilation  of  soae  programs  which  confora  to  the  Standard. 


$ 


The  Federal  COBOL  Standard 


The  Federal  COBOL  Standard  Is  the  sane  as  American  National  Standard  COBOL 
(13.23-1966)  with  two  exceptions: 

The  Federal  Standard  defines  A levels  and  the 
ANSI  Standard  defines  only  the  minimum  COBOL 
imp  lament  a t i on  and  the  full  standard.  Low  and 
High  levels  of  the  Federal  COBOL  Standard  (see 
1.S)  correspond  to  the  above  two  ANSI  levels 
(minus  the  Report  Writer  module).  Two  addi- 
tional levels^  lov-interaediate  and  high- 
intermediate  have  been  included  in  the  Federal 
Standard  between  the  highest  and  lowest  subsets. 

These  additional  levels  accommodate  hardware 
which  cannot  sjooort  the  full  standard/  but  which 
is  capable  of  implementing  more  than  the  minimum 
standard. 

The  Report  Writer  Nodule  has  been  dropped  from  the 
Federal  Standard  and  is  not  included  in  the  valida- 
tion process. 

The  Federal  Standard  requires  that  a compiler  contain  as  a minimum  the  ele- 
ments specified  in  at  least  one  of  the  Federal  levels.  No  restrictions  are 
imposed  on  the  inclusion  of  selected  features  from  higher  levels  or  even 
unique  vendor  extensions.  Compatibility  among  various  imo l ement at  ions  of  a 
given  level  containing  additonal  features  must  be  controlled  by  management 
imposed  standards  and  restrictions. 


1.5.  Federal  Standard  C093L  Levels 

The  federal  Government  has  defined  four  nested  levels  of  Standard  COBOL 
*5.23-1968.  All  compilers  acquired  by  a Federal  agency  must  contain  as  a 
minimum  one  of  the  four  Federal  levels*  depending  on  machine  size*  configura- 
tion and  user  needs. 


Low 

Level 

Low- 

Inter- 

mediate 

Level 

High- 

Inter- 

mediate 

Level 

High 

Level 

Nucleus.............. 

i 

2 

2 

2 

FPN 

Table  Handlina 

i 

2 

2 

3 

Sequential  Access.... 

i 

2 

2 

2 

Random  Access........ 

- 

2 

2 

2 

Sort 

- 

- 

1 

2 

Segmentation. ........ 

- 

1 

1 

2 

Library 

- 

1 

1 

2 

1.6.  Use  of  the  VSR 

The  Federal  COBOL  ComDiler  Testing  Service  may  take  full  and  free  public 
disclosure  of  the  Validation  Summary  Report  <VSR>  in  accordance  with  the 
"Freedom  of  Information  Act"  (5  U.S.C.  *552).  The  results  of  the  valida- 
tion are  only  for  the  purpose  of  satisfying  United  States  Government 
requirements*  and  apply  only  to  the  computer  system*  operating  system 
release*  and  compiler  version  identified  in  the  VSR. 

The  COBOL  Compiler  Validation  System  is  used  to  determine*  insofar  as  is 
practical*  the  degree  to  which  the  subject  compiler  conforms  to  the  COBOL 
Standard.  Thus*  the  VSR  is  necessarily  discretionary  and  judgmental.  The 
Jnited  States  Government  does  not  represent  or  warrant  that  the  statements* 
or  any  one  of  them*  set  forth  in  the  VSR  are  accurate  or  complete.  The  VSR 
is  not  meant  to  be  used  for  the  purpose  of  publicizing  the  findings  summar- 
ized therein. 

1.7.  Sources  of  Additional  Information 

FIPS  PUB  21  defines  the  Federal  COBOL  Language  Standard.  This  publication 
is  available  from  the  Superintendent  of  Documents*  U.S.  Government  Printing 
Office*  Washington*  D.C.  23432.  , 

The  detailed  COBOL  language  specifications  are  given  in  the  publication 
"USA  Standard  COBOL*  X3. 25-1968"*  available  froa  American  National  Standards 
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Institute/  1430  Broadway/  New  York/  New  York  10018. 

4n  explanation  of  the  C033L  Compiler  Validation  Systea  is  contained  in  the 
CCVS  User's  Guide.  This  document  explains  how  to  run  the  compiler  validation 
systea.  The  User's  Guide  and  a magnetic  tape  source  image  copy  of  the  CCVS 
programs  are  available  from  the  National  Technical  Information  Service/ 
Springfield/  Virginia/  22151 . Specify  *0772630  for  the  Users  Guide  and 
*0772631  for  the  CCVS  tape. 

1.8.  Reouests  for  Interpretation 

3jestions  reoarding  this  VSR  or  the  CCVS  should  be  forwarded  to  the  FCCTS. 

If  any  problem  cannot  be  adequately  resolved  through  the  fCCTS/  the  request 
for  interpretation  will  be  forwarded  to  the  federal  C333L  Interpretation 
Committee  for  final  resolution. 

* brochure  describing  the  Validation  process  including  the  procedures  for 
requesting  a validation  and  resolution  of  questions  involvino  interpretation 
of  the  current  federal  Standard  is  available  from  the  Department  of  the  Navy/ 
Federal  C030L  Compiler  Testing  Service/  Washington/  D.C.  23376. 

1.9.  federal  Standard  C030L  Approved  Int repret at  ion 

Tne  National  Bureau  of  Standards  published  in  the  federal  Register  Vol.  41 
No.  179/  September  14/  1975/  an  approved  interpretation  of  federal  Standard 
C3B0L  as  pertains  to  the  evaluation  of  arithmetic  expressions  in  the  COMPUTE 
statements.  This  interpretation  states  that  “site  of  the  intermediate  result 
field  is  implementor-defined." 

Since  the  results  of  evaluating  arithmetic  expressions  are  not  predictable/  all 
C3HPUTE  statements  and  If  statements  containing  arithmetic  expressions  have 
seen  removed  from  the  C033L  Compiler  Validation  Systea. 
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SECT  1 0 S 2.  DETAILED  EVALUATION  OF  ERRORS 


This  section  suamariees  the  results  of  the  comoilation  and  execution  of  the 
programs  comprising  the  COBOL  Compiler  Validation  System.  The  section  is 
Subdivided  into  two  sections:  Section  2.1.  lists  the  language  syntax  not 
accepted  by  the  compiler;  Section  2.2.  explains  the  semantic  differences 
between  the  compiler  implementation  and  the  language  specification.  All 
errors  within  each  section  are  grouped  by  processing  aodule. 

Each  program  in  the  COBOL  Compiler  Validation  System  is  identified  by  a S* 
character  program  name.  The  name  associates  the  routine  with  the  functional 
processing  module  and  level  of  Ans  COBOL  tested  within  the  program. 

The  five  character  name  has  the  general  format  XXNNN.  The  first  two  char- 
acters are  alphabetic  and  identify  the  functional  module  tested  by  the 
program.  The  permissable  values  are: 

LB  - Library 
NC  - Nucleus 
RC  - Random  Access 
S3  - Segmentation 
SO  - Sequential 
ST  - Sort 

TH  - Table  Handling 

The  third  character  of  the  audit  rout  ine  name  is  either  a 1*  2*  or  3*  and 
identifies  the  level  of  the  functional  module  being  tested.  Each  module  and 
level  is  represented  oy  several  programs.  The  fourth  and  fifth  characters 
of  the  program  name  are  sequence  numbers  for  prooraas  which  test  features  in 
the  same  level  of  the  same  functional  processing  module. 

As  an  example*  the  program  name  NC210  is  the  tenth  program  in  the  series  of 
routines  which  test  the  second  level  of  the  Nucleus  aodule. 

Each  error  noted  in  this  section  makes  reference  to  a program  or  functional 
COBOL  module  in  the  Validation  Summary  Working  Document  (APPENDIX  A).  This 
reference  provides  the  documented  results  of  an  occurrence  of  errors  detected 
during  the  running  of  the  COBOL  Compiler  Validation  System  using  the  compiler 
oeing  validated.  The  Validation  Summary  working  Document  is  presented  in 
sequence  by  functional  aodule*  functional  module  level  and  program  number  as 
defined  above. 
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2.2 


Semantic  Errors 


2.2.1  Nucleus  Module. 

2. 2. 1.1  Leading  SpAC£(s)  are  truncated  uhen  ACCEpTing  data  from  the  SPO 
(standard  console  ACCEPT  and  DISPLAY  device). 

See  NC139. 

See  NC234. 

2. 2. 1.2  The  compiler  does  not  replace  the  entire  comment  entry  of  the 

DA TE-C 0M°I LE D paragraph  with  the  current  date.  It  only  replaces' 
the  first  sentence  in  the  paragraph. 

See  NC203. 

2.2.2  Random  Access  Module. 

2. 2. 2.1  Laoel  DECLARATIVE  procedures  for  random  access  mass  storage 
devices  do  not  appear  to  be  supported. 

See  RC231. 

See  RC202. 

See  RC233. 

2. 2. 2. 2 A file  can  be  opened  and  read  after  a CLOSE  WITH  LOCK  statement 
has  been  executed  for  the  file. 

See  RC 231 . 

2.2.2. 3 The  statement  VALUE  OF  data-name  IS  has  not  been  implemented. 

See  RC 235 . 

2.2.3  Segmentation  Module. 

2. 2. 3.1  Independent  segments  are  not  provided  in  their  initial  state 
each  time  these  segments  are  made  available  to  the  program. 

See  SGI 32 . 

See  SSI 33. 

See  SS231  . 

See  SG233. 

2.2.4  Sequential  Access  Module. 

2. 2. 4.1  For  tape  files*  the  ENDING  LABEL  procedures  execute  following 

a CLOSE  even  though  the  file  is  not  at  an  end-of-file  condition*. 

See  SS203. 
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See  Sa217.' 


2-2-*.? 


Label  DECLARATIVE  procedures  do  not  appear  to  be 
sequential  access  Mass  storage  devices. 


supported  on 


See  S8205. 
See  SQ209 . 
See  S9232. 
See  SJ21J. 
See  S821S. 
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SECTION  3.  COMPILER  STATUS 


Section  1.S  explains  the  four  levels  of  federal  Standard  COBOL.  This 
section  lists  the  discrepancies  described  in  Section  2 by  the  Federal  level 
in  which  the  problea  .occurs.  All  errors  listed  for  a lover  level  are  also 
errors  in  any  higher  level/  even  though  they  are  listed  only  in  the  lover 
level.  The  paragraph  nuaber  from  Section  2 is  used  to  reference  the  errors 
in  each  Federal  level. 

3.1.  Low  Level 

2. 2. 1.1  ACCEPT  - leading  blanks  truncated  vhen  accepting  from 
the  console. 

3.2.  Lov-Interaediate  Level 

2. 2. 1.2  DATE-COMPILED  - date  does  not  reolace  the  entire  paragraph. 

2. 2. 2.1  USE  procedures  - Random  Access. 

2. 2. 2. 2 CLOSE  WITH  LOCK  - Random  Access. 

2. 2. 2. 3 VALUE  OF  data-name  - Random  Access. 

2. 2. 3.1  Segmentation  - independent  seoments  not  in  initial  state. 

2. 2. 4.1  Ending  label  procedures  executed  orior  to  end-of-file. 

2. 2. 4. 2 USE  procedures  - Sequential  Access  aass  storage. 

3.3  High-Intermediate  Level 
None 

3.4  High  Level 
None 
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SECTION  4.  INFORMATION  ITENS 

Section  4.1  covers  the  cases  where  the  results  of  a given  statement  are  not 
defined  in  the  language  specifications. 

Section  4.2.  gives  other  inforaation  about  the  compiler  which  was  discovered 
during  validation.  Included  in  this  section  are  items  which  are  hardware 
dependents  and  situations  where  implementor  defined  variations  are  permitted. 

Section  4.3.  gives  information  on  hardware  dependent  features  that  are  not 
supported  by  the  subject  COBOL  Compiler. 

Section  4.4  gives  information  concerning  the  use  of  facilities  outside  the 
COBOL  program  that  accomplish  functions  defined  in  C030L  (set  1.4  of  this  VSR). 

The  COBOL  language  specification  "American  National  Standard  C080L  *3.23-1966" 
as  defined  by  FIPS  Pub  21  is  used  as  the  reference  document. 

4.1.  Information  Tests 

4.1.1.  Nucleus  nodule 

4. 1.1.1.  CLOSE  followed  by  an  OPEN  OUTPUT  of  a printer  destined  file  (L91D3): 

COPT-TEST-2  of  LB13 3 closed  and  then  reopened  the  printer  file.  The  result  of 
closing  and  then  reopening  a unit  record  output  file  is  not  specifically 
addressed  in  the  language  specifications.  The  object  of  this  test  is  to  deter- 
mine whether  the  file  is  reoositioned  to  its  oeginning  and  all  previous  results 
overwritten#  or  whether  all  current  output  is  preserved  with  additional  output 
concatenated  to  it. 

The  results  for  this  compiler: 

All  printed  output  was  provided. 

4. 1.1. 2.  IF. ..Signed  Numeric  item  equals  Alphanumeric  item  (NC103): 

If-TEST-65  compares  two  elementary  items  with  the  first  item  havinq  PIC  S9C16) 

V AL'JE  111111111111111111  and  the  second  item  having  a PIC  X(15>  VALUE 
"111111111111111111".  The  items  are  compared  oy  the  form: 

If  identif er-1  EQUAL  TO  identifier-2... 

The  results  for  this  compiler: 

The  two  elementary  items  did  not  compare  equal. 

4. 1.1. 3.  IF. ..NUMERIC  Condition  tests  (NC103): 

CLASS-TEST-17  and  CLASS-TEST-22  of  NC1D3  are  inforaation  tests  where  data  items 
with  PICTURE  S9  contain  -1  and  el  respectively.  Each  data  item  is  redefined 
as  an  alphanumeric  data  item  PICTURE  X.  The  redefined  data  item  is  then 
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referenced  in  a NJMER1C  test  to  determine  whether  the  signed  data  item  contains 
an  indicator  to  represent  the  sign/  i.e.  an  overpunch.  11  both  data  items  are 
determined  to  be  numeric/  then  the  system  does  not  use  an  Indicator  technique 
for  the  sign.  If  both  data  items  are  determined  to  os  not  numeric  then  the 
system  uses  an  indicator  method  for  both  positive  and  neoative  numbers.  If  one 
of  the  data  items  is  tumeric  and  the  other  is  not/  then  the  system  uses  the 
indicator  method  for  one  case  but  not  the  other.  The  sign  is  not  addressed 
by  the  COBOL  language  specifications  and  consequently  is  left  to  the 
discretion  of  the  implementors  of  COBOL  compilers  as  to  its  representation. 

lie  results  for  this  compiler: 


Negative 
The  data 
Positive 
The  data 
4. 1.1.4 


data  redefined  as  unsioned  data: 
item  tested  MOT  NUMERIC, 
data  redefined  as  unsigned  data: 
item  tested  MOT  NUMERIC. 

Move  signed  numeric  field  to  alphanumeric  field  (NC105): 


mgVE-TEST-14*  and  MOVE -TEST-1 49  in  NC105  move  signed  numeric  fields  uith 
PICTURE  S9(5)  to  fields  uith  PICTURE  X(5).  The  source  fields  had  contents 
of  *63666  and  -73717  for  M 0 VE -TE ST S-1 4 3 and  14?  respectively.  The  language 
specification  is  not  definitive  as  to  whether  the  absolute  value  is  to  be 
moved  (i.e.  the  sign  is  stripped)  or  whether  the  contents  are  moved  withojt 
regard  to  the  sign.  The  results  of  these  tests  should  be  considered  only  in 
light  of  the  results  of  the  information  test  in  4. 1.1. 2. 


The  results  for  this  compiler: 


MOVE  *60666  TO  X < 5 ) 


The  absolute  value  was  mowed;  the  sign  was  stripped. 

MOVE  -70717  TO  X C S> 

The  absolute  value  was  moved;  the  sign  was  stripped. 

4. 1.1. 5.  Abb  without  ON  SIZE  ERROR  (NC106): 

49b-TEST-17  in  MC106  checks  the  effect  of  a site  error  on  the  result  of  an 
Abb  statement  which  does  not  have  the  ON  SIZE  ERROR  phrase.  The  statement 
used  was  adding  SV9<5>.  S9(6)V9(6),  SV9<5>  GIVING  S?(S>  ROUNOEb.  Identifier 
S?(6)V9(6)  contained  the  value  333333.333333.  The  SV?<5)  descriptions  were  the 
same  Identifier  and  contained  the  value  .11111.  The  language  specifications 
do  not  define  the  results  of  an  arithmetic  operation  without  the  SIZE  ERROR 
phrase/  when  the  result  cannot  be  contained  in  the  resultant-identifier  which 
causes  truncation  of  significant  digits.  The  results  of  this  test  require  6 
digits  and  the  resultant-identifier  contains  only  5.  for  a further  discus- 
sion/ see  X3. 23-1968  American  National  Standard  COBOL  page  2-28/  Section 
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6.2.?  (1 )*  The  SIZE  ERROR  clause. 

The  results  for  this  compiler: 

The  result  was  stored  in  the  resultant-identifier  with  the  high  order 
digit  truncated. 

4. 1.1. 6.  Abbreviated  Combined  Relation  Conditions  (NC2D1 ) : 

IT--TEST-110  in  NC231  utilizes  an  abbreviated  combined  relation  condition  to 
determine  the  direction  the  compiler  will  take  in  a case  where  the  use  of  the 
word  NOT  is  indeed  confusing.  The  language  specification  states  on  paqe  2-73* 
section  5. 2. 1.1  that  when  the  construct  AND  NOT  LESS  THAN  is  used  in  a source 
program*  the  word  NOT  is  to  be  treated  as  a logical  operator.  This  becomes 
relevant  when  taken  in  the  context  of  the  later  aooreviation  of  the  relational 
operator  in  the  statement.  Tor  example*  A = 9 AND  NOT  LESS  THAN  C OR  D . would 
expand  to  the  following:  A = 6 AND  NOT  A LESS  THAN  C OR  A LESS  THAN  D.  The 
test  in  question  contains  the  following:  A GREATER  THAN  B AND  IS  NOT  LESS  THAN 

C OR  D which  strongly  suggests  that  the  word  NOT  in  this  ease  is  relational  in 
nature  and  not  logical.  The  concept  of  an  optional  word  CIS)  chanqino  the 
meaning  of  a statement  is  contrary  to  the  philosophy  of  COBOL  and  as  a result 
this  test  is  presented  as  information  only. 

The  values  for  the  variables  in  the  condition  are  A=5*  9=7*  C=1  and  D=o. 

Jsing  these  values  in  place  of  the  variables*  the  condition  expands  as  the 
following  if  NOT  is  treated  as  relational: 

< C 5 6REATER  THAN  7)  AND  (5  NOT  LESS  THAN  1))  OR  (5  NOT  LESS  THAN  6) 

In  this  case  the  condition  is  false. 

If  the  NOT  is  logical*  the  condition  expands  as  the  following: 

<(5  6REATER  THAN  7 AND  NOT  (5  LESS  THAN  1>>  OR  f5  LESS  THAN  6) 

In  this  case  the  condition  is  true. 

The  results  for  this  compiler: 

Tne  word  NOT  was  treated  as  a relational  operator. 

4. 1.1. 7 The  Synchronized  Clause  (NC108) 

The  language  specification  does  not  specify  the  results  of  the  use  of  the 
synchronized  clause  vitho.it  the  specification  of  either  LETT  or  RIGHT.  In  the 
event  that  such  results  are  provided  during  the  validation  process*  they  are 
Included  here  as  infpraation. 

The' results  for  this  compiler:  , 

The  compiler  did  not  Indicate  how  the  synchronization  would  be  done. 
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(.1.1.6  The  ACCEPT  Statement  (NC139) 


The  language  specification  does  not  specify  the  results  of  ACCEPT  when 
the  hardware  is  caoable  of  transferring  the  amount  of  data  as  specified 
in  the  receiving  field  and  more  characters  are  entered  for  transfer  on 
toe  device  than  were  expected  by  the  receiving  field. 

The  results  of  this  compiler: 

Tse  leftmost  character(s)  are  truncated  when  the  number  of  characters 
ACCEPTed  from  the  SPO  exceeds  the  site  of  the  receiving  field. 


(.1.2.  Random  Access  Module 

(.1.2.1  Multiple  length  records  IRC132): 

program  RC132  produces  a file  containing  records  of  mjltiole  sizes.  The  pur- 
pose of  this  test  is  to  determine  whether  multiple  size  records  are  written  or 

whether  the  xtaximum  size  record  is  always  written.  As  the  file  is  created* 

records  of  both  length  are  written;  and  as  the  smaller  records  are  built* 
information  uniquely  identifying  each  record  is  placed  in  the  portion  of  the 
larger  record  that  would  not  logically  oe  written  to  the  external  media,  ifhen 
the  file  is  later  retrieved  the  record  area  is  examined  to  determine  whether 
the  extra  portion  beyond  the  end  of  the  smaller  record  is  available  when  each 
of  the  smaller  records  is  read.  The  language  spec i f i c ai on  does  not  readily 

suggest  that  the  external  media  will  be  impacted  by  the  size  of  the  logical 

record  as  defined  in  the  C030L  program. 

The  results  for  this  compiler  are: 

The  compiler  supports  fixed  length  records. 

(.1.3.  Sequential  Access  Module 

(.1.3.1.  CLOSE  REEL  for  Output  Files  (SS101): 

The  language  specifications  are  not  clear  as  to  the  first  record  written  to  a 
new  reel  after  a CLOSE  REEL  statement  has  been  executed.  In  the  program  SC131* 
a multi-reel  file  is  created  using  the  CLOSE  RE FL  stateaent.  INF0-0N-TFST-5 
reads  the  first  record  of  the  second  reel. 

The  results  for  this  compiler: 

The  first  record  read  on  the  second  reel  was  the  first  record  written 
following  the  CLOSE  REEL. 

(.1.3.2.  Multiple  Length  Records  for  Tape  files  (SQ102):  , 

The  audit  routine  SJ1D2  creates  a tape  file  with  multiple  length  records.  The 
file  is  then  read  and  the  record  area  eaaained  to  deteraine  whether  fixed  lenqth 
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records  were  written,  for  a discussion  of  this  operation?  refer  to  4-1-?. 1. 
jnder  the  discussion  of  Random  Access. 

The  results  for  this  compiler  are: 

The  compiler  appears  to  sjpport  aultiple  length  records. 

4. 1.3. 3.  Multiple  length  records  for  sequential  mass  storage  files  (SQ104): 

The  audit  routine  S0104  creates  a sequential  itass  storage  file  with  aultiple 
length  records.  The  file  is  then  read  and  the  records  are  examined  to  deter- 
eine  whether  fixed  length  records  are  written.  Refer  to  4. 1.2.1  under  the 
discussion  of  aultiple  records  for  Random  Access  files  for  a description  of 
a similar  test. 

The  results  for  this  compiler  are: 

Tne  compiler  appears  to  support  fixed  length  records. 

4. 1.3. 4.  fILE -LIMITS  Clause 

The  flLE-LlMITS  clause  need  not  be  used  by  the  coeoiler  and/or  operating  system 
to  allocate  file  space.  The  language  specification  allows  an  external  source 
or  function  t-o  accomplish  some  functions  described  in  the  COBOL  language?  in 
particular?  file  facilities  management  functions. 

The  results  for  this  compiler  are: 

Tne  fILE “LIMITS  c’suse  is  used  by  this  compiler  in  defining  the 
relative  limits  of  the  file. 

4. 1.3. 5 RERUM  Clause  Option 

The  language  specification  requires  that  the  implementor  must  provide  at 
least  one  of  the  specified  forms  of  the  RERUM  clause. 

The  RERUN  clause  used  for  this  compiler  was: 

RERUN  ON  DISK  EVERT  5 RECORDS  Of  file-name-1. 

4.2.  Other  Information 

4.2.1.  Library  Source  Text 

The  language  specification  is  somewhat  vague  as  to  the  content  of  the  library 
test  prior  to  being  copied.  As  a result  there  are  a multitude  of  techniques 
that  have  been  noted  for  establishing  the  source  text  for  subsequent  use  by  a 
COPT  statement.  This  information  is  provided  in  order  to  understand  the 
technique  used  by  this  system. 

The  results  for  this  compiler  are: 
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There  Mere  no  Modifications  required  for  the  Horary  teat. 

4.2.?.  Noraal  Print  Positioning  <SQ?13): 

The  language  specification  does  not  provide  the  default  specifications  for 
the  use  of  the  JRITE  statement  in  relation  to  files  destined  for  a printer 
anen  the  ADVANCING  phrase  is  not  specified  by  the  user.  The  purpose  of  this 
test  is  to  observe  the  default  taken  by  the  coapiler. 

Tne  results  for  this  compiler  are: 

This  coapiler  assumes  9E  F ORE  ADVANCING  1 uhen  no  advancing  phrase  is  used. 


4.3  Hardware  dependent  features, 
o Hardware  Snitches 

tais  systea  does  not  support  hardware  switches  and  as  a resuite  all  tests 
related  to  the  testing  of  switches  werr  deleted. 

o UNIT  Option 

The  logical  concept  of  UNIT  is  not  defined  by  this  systea  for  Bass  storage 
devices.  As  a result  all  tests  related  to  testing  of  the  UNIT  option  were 
deleted. 

4.4  Transparent  lapleaentation 


User  labels.  The  syntax  of  the  statement  VALUE  OF  data-naae  IS  produces  a 
warning  aessage  but  not  a fatal  cospile  tiae  error.  The  systea  has  the 
STSTE^/RTABLGCN  function  to  accomplish  the  seaantics  for  this  COBOL  language 
statement  external  to  the  COBOL  prograa. 
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SECTION  5 


SOFTWARE  ENVIRONMENT 


The  compiler  referenced  in  this  document  was  validated  using  the  software 
environment  described  in  this  section.  When  using  a aodification  of  the 
descrioed  environaent#  the  compiler  may  or  may  not  continue  to  confora  to  the 
standard.  It  should  be  noted  that  during  the  validation  process#  an  atteapt 
is  aade  to  validate  as  many  different  options  as  possible. 

The  use  of  coapiler  options#  i aol eaent or-ns ties  in  the  Environment  Division 
and  any  form  of  optiai2ation  which  is  not  described  in  this  report  could  cause 
the  coaoiler  to  produce  a program  that  does  not  perform  according  to  the 
specifications  of  Standard  CD90L.  Only  the  environaent  described  in  this 
document  has  been  used  with  this  compiler  to  satisfy  the  requirements  of  FIPS 
PUB  21  and  FPMR  1 01 -3?. 1 535 . 1 a . (Any  deviations  which  must  be  corrected  as 
oer  the  referenced  FPMR  are  described  in  Sections  2 and  3 of  this  report.) 

1.  Options  or  parameters  used  on  the  processor  call  stateient  for  the  coapiler 
The  following  opt ions/paraaeters  were  used  during  the  validation. 

Options  specified: 


$ SET  OPTIMIZE  (also  ran  without  OPTIMIZE) 
STACK 
LISTP 

LISTDELETED 

USAS1 

RESET  86700 


Options  defaulted: 

See  Burroughs  C9BDI  Reference  Manual  No.  5303656 
Chapter  13. 

2.  Environaent  Division  implement or-naaes. 


Printer  destined  files 
PRINTER 

Tape  files 

TAPE 

Sequential  aass  storage  files 
BISK 

Random  Access  files  • 

BISK 
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Sort  files  (so) 


SORT  DISC 

Switch  naaes 

Not  supported  by  the  compiler. 
Source  Coaputer  naaes 

B6703-B7733 
Object  Computer  naaes 

B6703-B770D 


3.  Cpt i mi z at  ion . The  coapiler  may  or  may  not  have  optimization  features. 

If  there  was  an  optimization  feature  available,  it  was  used  durino  the 
validation  process  (djring  a separate  execution  of  the  Compiler  Validation 
System)  to  determine  if  its  use  causes  the  compiler  to  prodjce  a program  which 
does  not  give  the  expected  results.  If  the  optimization  is  invoked  through 
the  compiler  call  statement  then  it  is  mentioned  in  oaragraph  1 above.  If 
it  is  invoked  through  the  introduction  of  syntax  in  other  than  the  Data 
and  Procedure  Divisions  of  the  source  prooram  it  is  shown  below.  Optimization 
which  would  require  modification  to  the  Data  and  Procedure  Divisions  is  not 
considered  in  this  report  in  that  it  is  beyond  the  scope  of  the  use  of 
standard  COBOL  and  the  validation  process. 

The  optimization  feature  for  this  compiler  is  invoked  through  the  compiler 
statement  ( SSET  ).  See  1.  above.  There  was  no  differnce  in  the 
execution  of  the  programs  when  the  optimization  feature  was  invoked. 


4.  Coapiler. 


Burroughs  C330L  Version  II. S 


S.  Operating  system. 


Burroughs  1CP  II. S 


APPEND  1 X A 


VAL1DATIDN  SUMMARY  WORKING  DOCUMENT 


A-1  This  appendix  is  a working  paper  produced  during  the  validation 

and  documents  the  results  pf  the  compilation  and  execution  of  each  of  the 
orograas  comprising  the  CCVS.  The  results  contained  herein  are  based  on 
the  use  of  the  compiler  within  the  Validation  Environment  identified  in 
this  appendix.  This  appendix  (Validation  Summary  Working  Document)  is  not 
part  of  the  official  Validation  Summary  Report  (VSR)  and  is  not  intended 
to  reflect  in  any  way  the  compiler’s  usefulness  or  degree  af  conformance 
tp  the  language  spe e i f i ca t i pns . 

The  reader  of  this  appendix  should  keep  in  mind  that  the  same  pro- 
blem area  may  appear  in  more  than  one  proqram*  but  is  considered  only  as  one 
single  discrepancy  and  as  such  is  reflected  only  once  in  the  body  of  the 
VSR.  (The  VSR  will  in  turn  only  reference  the  first  occurrence  of  the 
problem  in  the  appendix.) 

This  appendix  is  divided  into  two  parts.  The  first  part  describes 
the  Validation  Environment.  The  second  part  of  the  document  is  divided  into 
categories  of  information:  compilation  and  execution  results. 

The  reference  document  for  C033L  is  FIPS  PUS  ?1  (KS. 23-1968) . 
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LIBRARY  MODULE  LEVEL  1 
L3131  through  L9137 

A.  Compilation: 
ho  errors. 

B.  Execution: 

Vo  errors. 

LIBRARY  MODULE  LEVEL 
LJ2D1  through  L32D5 

A.  Csxpi l at i on  : 

No  errors. 

B.  Execution: 

No  errors. 


NJCLEUS  MODULE  LEVEL  1 


v:101  through  NC10S 

A.  Compi  l at  i on  : 

No  errors. 

B.  Execution: 

No  errors. 

NC139 

A.  Compilation: 

No  errors. 

B.  Execution: 

ACC-TEST-6  accepts  20  characters  fro*  the  SPO  (standard  console 
ACCEPT  and  DISPLAY  device)  and  coapares  the  characters  it  has 
ACCEPTed  into  an  eleaentary  itea  PIC  A (23)  with  another  element  ary 
item  PIC  A(20).  The  fields  did  not  coapare  equal  because  the 
leading  space  uas  truncated  froa  the  characters  transmitted  from 
the  SPO. 

Computed  result:  ABC  XYZ  . 

Expected  result:  ABC  xyz  . 

ACC-TEST-7  accepts  9 characters  froa  the  SPO  into  an  eleaentary 
numeric  itea  PIC  9(2)  and  then  coapares  this  itea  vith  another 
elementary  nuseric  item  PIC  9(9)  VALUE  0123*5678.  The  fields 
did  not  coapare  equal.  It  is  important  to  understand  that  a total 
of  ten  (10)  characters  were  transmitted  froa  the  SPO.  When  the 
transferred  data  exceeds  the  size  of  the  receiving  itea»  only  the 
leftmost  characters  of  the  data  are  stored  in  the  receiving  data 
item. 

See  Page  2-29  6.3.3  (4)  b.  The  ACCEPT  Statement. 

SC110  through  NC113 

A.  COMPILATION: 

No  errors. 

B.  Execution: 

No  errors. 
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VJCLEJS  10DULE  LEVEL  2 


VC  231  through  NC202 

A.  Compilation: 

No  errors. 

B.  Execution: 

No  errors. 

VC203 

A.  Compilation: 

The  DATC-COKPILFD  paragraph  in  this  program  tests: 

(a)  the  acceptance  of  a comment  entry  within  the 
DATE-CSI’ILED  paragraph  and  (b)  replacement  of  the 
date  compiled  paragraph  during  compilation 
with  a paragraph  of  the  form: 

DATE -COMPILED.  Cur rent -dat e . 

This  compiler  inserted  the  current-date  into  the  paragraph 
rather  than  replace  the  comment  entry. 

See  Page  2-26r  Paragraph  2. 4.3(1)  The  DATE-CD*PILED 
PARAGRAPH. 

B.  Execution: 

No  errors. 

VC204 

A.  Compilation: 

No  errors. 

B.  Execution: 

ACC-TEST-S  accepts  23  characters  from  the  SPO  and  compares 
the  characters  it  has  ACCEPTed  into  an  elementary  item 
PIC  A(23)  with  another  elementary  item  PIC  A(23).  The  fields 
did  not  coapare  equal  because  the  leading  SPACE  was  truncated 
from  the  characters  transmitted  froa  the  SPO. 

Computed  result:  A9C  XYZ  . 

Expected  result:  ABC  XTZ  . 

NC205  through  NC212 


A.  Compilation 
No  errors. 
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RANDOM  ACCESS  MODULE  LEVEL  1 

RC101  through  RC105 

A.  C onp i l at  ion: 

No  errors. 

6.  Execution: 

No  errors. 

RANDOM  ACCESS  MODULE  LEVEL  2 
RC201 

A.  Compilation: 

The  following  DECLARATIVE  procedures  produced  the 
compile  time  message: 

WARNING  : ROUTINE  NOT  APPLICABLE  TO  ANY  FILE*** 

USE  AFTER  BEGINNING  FILE  LABEL  PROCEDURE  ON  OUTPUT 

USE  BEFORE  STANDARD  BEGINNING  FILE  LABEL  PROCEDURE  ON  1-0 

USE  BEFORE  ENDING  FILE  LABEL  PROCEDURE  ON  OUTPUT 

USE  AFTER  ENDING  FILE  LABEL  PROCEDURE  ON  1-0 

USE  AFTER  STANDARD  BEGINNING  FILE  LA3EL  PROCEDURE  ON  INPUT 

USE  BEFORE  STANDARD  ENDING  FILE  LABEL  PROCEDURE  ON  INPUT 

B.  Execution: 


CLOSE  TEST-01  and  CLOSE  TEST-02  fail  because  DECLARATIVE 
procedure  was  not  properly  executed  "AFTER  BEGINNING 
FILE  LABEL  PROCEDURE  ON  OUTPUT". 

CLOSE  TEST-09  and  CLOSE  TEST-10  foil  because  DECLARATIVE 
procedure  Mas  not  properly  executed  "3EF ORE  ENDING 
FILE  LABEL  PROCEDURE  OUTPUT”. 

OPEN  INPUT  TEST-11  fails  because  DECLARATIVE  procedure 
was  not  properly  executed  "AFTER  STANDARD  BEGINNING 
FILE  LABEL  PROCEDURE  ON  INPUT". 

OPEN  1-0  TEST-11  fails  because  DECLARATIVE  procedure 
was  not  properly  executed  "BEFORE  STANDARD  BEGINNING 
FILE  LABEL  PROCEDURE  ON  1-0". 

CLOSE  TEST-25  fails  because  DECLARATIVE  procedure 

29 


Mas  not  properly  executed  "BEFORE  STANDARD  ENDING  FILE 
LABEL  PROCEDURE  ON  INPUT". 

CLOSE  TEST-25  falls  because  DECLARATIVE  procedure 
uas  not  properly  executed  "AFTER  ENDING  FILE  LABEL 
PROCEDURE  ON  I-O". 

OPEN  AFTER  L)C(  TEST-27  fails  because  a file  is  aade  available 
after  it  Mas  CLOSEd  WITH  LOCK. 


See  Pages  2-155  through  2-152  Randoa  Access  Level  2. 

RC  202 

A.  Compilation: 

The  following  DECLARATIVE  procedures  produced  the 
compile  tiae  Messages: 

WARNING  : fILE  N 5 T ASSIGNED  TO  TAPE*** 

WARNING  : ROUTINE  NOT  APPLICABLE  TO  ANT  FILE  •** 

USE  BEFORE  BEGINNING  FILE  LABEL  PROCEDURE  ON  file-naae 
USE  AFTER  STANOARD  BEGINNING  FILE  LABEL  PROCEDURE  ON  file-naae 
USE  AFTER  ENDING  FILE  LABEL  PROCEDURE  file-naae 
USE  BEFORE  ENDING  FILE  LABEL  PROCEDURE  ON  file-naae 

B.  Execution: 


OPEN  OUTPUT  TEST-01  fails  because  the  DECLARATIVE  procedure 


Mas  not  properly  executed 
ON  file-naae". 


"BEFORE  BEGINNING  FILE  LABEL  PROCEDURE 


OPEN  OUTPUT  TEST-02  fails  because  the  DECLARATIVE  procedure 
Mas  not  properly  executed  "AFTER  STANDARD  BEGINNING  FILE  LABEL 
PROCEDURE  ON  file-naae". 


CLOSE  TEST-09  fails  because  the  DECLARATIVE  procedure 

uas  not  properly  executed  "AFTER  ENDIN6  FILE  LABEL  PROCEDURE 

file-naae". 

CLOSE  TEST-10  fails  because  the  DECLARATIVE  procedure 

was  not  properly  executed  "BEFORE  ENDING  FILE  LABEL  PROCEDURE 

ON  file-naae". 

OPEN  INPUT  TEST-11  fails  because  the  DECLARATIVE  procedure 
uas  not  properly  executed  "AFTER  STANDARD  BEGINNING  FILE  LABEL 
PROCEDURE  ON  file-naae". 

OPEN  1-0  TEST-11  fails  because  the  DECLARATIVE  procedure 

Mas  not  properly  executed  "BEFORE  BEGINNING  FILE  LABEL  PROCEDURE 
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ON  file-naae". 

CLOSE  TEST-27  fails  because  the  DECLARATIVE  procedure 

was  not  properly  executed  "BEFORE  ENDING  FILE  LABEL  PROCEDURE 

ON  file-naae". 

CLOSE  TEST-28  fails  because  the  DECLARATIVE  procedure 

was  not  properly  executed  "AFTER  ENDING  FILE  LABEL  PROCEDURE 

file-naae". 

See  Page  2-175  4.1. A f2)  A.  Standard  Close  File. 

See  Page  2-177  4.2.4  (4)  and  4.2.4  <7)  The  OPEN  Statement. 


RC  203 

A.  Coepilation: 

In  the  FD  section  the  following  construct  produced  the 
coepile  tiae  aessage  WARNING  : CONSTRUCT  NOT  IMPLEMENTED 

VALUE  OF  USER-ID-:  IS  "RANDON-FILE-S". 

The  following  DECLARATIVE  procedure  produced  the  coapile  tiae 
aessage  WARNING  : FILE  NOT  ASSIGNED  TO  TA*E  »*» 

VARNINS  : ROUTINE  NOT  APPLICABLE  TO  ANY  FILE 

USE  BEFORE  STANDARD  BEGINNING  FILE  LABEL  PROCEDURE  ON  file-naae 
USE  AFTER  STANDARD  BEGINNING  FILE  LABEL  PROCEDJRE  ON  file-naae 
USE  BEFORE  STANDARD  ENDING  FILE  LABEL  PROCEDURE  ON  file-naae 
USE  AFTER  STANDARD  ENDING  FILE  LABL  PROCEDURE  ON  file-naae 

B.  Execution: 

All  tests  in  RC203  failed  to  execute  properly  because  of  the 
failure  to  execute  the  DECLARATIVE  procedures  associated  with 
the  files. 

See  Pages  2-1>S  through  2-1S2  Randoa  Access  Level  2. 


31 


SEGMENTA13N  MODULE  LEVEL  1 
SJ101 

A.  Ctipllatbn: 
ho  error*. 

8.  Execution; 

No  errors. 

SS102 

A.  Compilation: 

No  errors. 

B.  Execution: 

SE6-TEST-5  fails  because  independent  segments  are  not 
in  their  initial  state  each  time  these  segients  are  aade 
available  to  the  program. 

See  Page  2-241  2.2.3  Independent  Segments. 

SSI  03 

A.  Compilation: 

No  errors. 

8.  Execution: 

INITIAL -STATE-TEST-lx  EALL-TMRU-TEST-6#  and 
G0-T0-ALTER-IND-TEST-7  all  fail  because 
independent  segments  are  not  provided  in  their  initial 
state  each  tiae  their  are  aade  available  to  the  prograa. 

See  Page  2-241  2.2.3  Independent  Segaents. 
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SEGMENT AI3N  MODULE  LEVEL  2 
$3201 

A.  Compilation: 
ho  errors. 

B.  Execution: 

The  following  tests  fail  because  independent  segments 
are  not  provided  in  their  initial  state  each  tixe 
they  are  made  available  to  the  program: 

SFG-TE  ST-22 
SEG-TEST-23 
SES-TEST-24 
SEG-TEST-25 
SEG-TEST-26 
SE  6-TE  ST-22 
SEG-T.E  ST-23 
SE6-TEST-29 
SEG-TEST-33 
SE6-TE  ST-51 
SEG-TE  ST-32 
SE6-TEST-33 
SEG-TEST-34 
SEG-TE  ST-35 
SEG-TEST-35 
SEG-TE  ST-32 
SEG-TEST-38 
SEG-TEST-3? 

SES-TEST-43 
SEG-TEST-41 
SEG-TEST-42 
SEG-TE  ST-  4 3 
SEG-Tf ST-64 
SE6-TEST-65 


See  Page  2-246  2.2.3  Independent  Segments. 

S5232 

A.  Compilation: 

No  errors. 

B.  Execution: 

No  errors. 
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S3203 


A.  Compilation: 

No  errors. 

B.  Execution: 

The  following  tests  fail  because  the  independent  seoaents 
are  not  provided  in  their  initial  state  each  ti»e  they  are 
•ade  availaole  to  the  program: 

INITIAL  STATE  PAR4-43B  (TEST  14) 

INITIAL  STATE  PAR  A-68C  (TEST  15). 

See  Page  2-245  2.2.3  Independent  Segments. 
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SEQUENTIAL  ACCESS  NODULE  LEVEL  1 


SQ1D1  through  S313S 

A.  Compilation: 

No  errors. 

B.  Execution: 

No  errors. 

SEQUENTIAL  ACCESS  NODULE  LEVEL  2 
SQ231  through  SQ232 

A.  C omp i l at  ion: 

No  errors. 

B.  Execution: 

No  errors. 

SQ203 

A.  Compilation: 

No  errors. 

B.  Execution: 

USE-TEST-?  fails  to  execute  properly  because  the  ENDING  LABEL  procedure 
executed  on  a fils  that  had  been  OPENed  for  IN»JT  and  this  file  mas 
CLOSEd  before  the  file  reached  the  end-of-file  condition. 

See  Page  2-153  4.4  The  JSE  Statement. 

See  Page  2-14)  4.1  The  CLOSE  Statement. 

SQZ04 

A.  Compilation:  \ 

No  errors. 

I.  Execution: 

No  errors. 

SB235 

A.  Compilation:  ( 

The  following  statements  produced  the  compile  time  message 
VARNINC  : CONSTRUCT  NOT  INPUENENTED  *** 


VALUE  OF  USER-ID-A  IS  "SE QUE NTI AL- F I LE-1 
VALUE  OF  USER-ID-C  IS  "SE8UENTI AL-F I LE -3 
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B.  Execution: 

LABEL-TEST-14*  L ABEL-TE  ST-1  5*  LA9EL-TEST-1  6*  end  LA3EL-TE ST-1  8 
all  fail  because  the  VALUE  OF  data-naae  IS  literal 
clause  is  not  iapleaented. 

See  Page  2-150  4. 4 The  USE  Statement. 

See  Page  2-142  3.2  The  VALUE  OF  Clause. 


S3206  through  SQ207 

A.  Compilation: 

No  errors. 

3.  Execution: 

No' errors . 

SB208 

A.  Coapilation: 

The  following  DECLARATIVES  produced  the  coapile  time  message: 

WARNING  : ROJTINE  NOT  APPLICABLE  TO  ANT  FILE*** 

USE  BEFORE  9ESINNING  FILE  LABEL  PROCEDURE  ON  1-0 
USE  AFTER  BEGINNING  FILE  LA3EL  PROCEDURE  ON  1-0 
USE  BEFORE  ENDING  FILE  LABEL  PROCEDURE  ON  1-0 
USE  AFTER  ENDINS  FILE  LABEL  PROCEDURE  ON  1-0. 

B.  Execution: 

OPE N-I -O-TEST*  LABEL  PROCEDURE  07-USE-TEST*  08-USE-TEST*  09-USE-TEST* 
and  10-USE-TEST  all  failed  because  of  improper  execution  of  the 
DECLARATIVE  procedures  associated  with  the  1-3  files. 

See  Page  2-130  4.4  The  USE  Statement. 

SB209 

A.  Compilation: 

The  following  DECLARATIVE  procedures  produced  compile  time  messages:* 
WARNING  : FILE  NOT  ASSIGNED  TO  TAPE*** 


USE  AFTER  STANDARD  ENDING  UNIT  LABEL  PROCEDURE  ON  HASS-F1LE-A 
USE  AFTER  STANDARD  BEGINNING  UNIT  LABEL  PROCEDURE  ON  HASS-FILE-A 
USE  BEFORE  STANDARO  ENDING  UNIT  LABEL  PROCEDURE  ON  HASS-EILE-A 
USE  8EF0RE  STANDARD  ENDING  UNIT  LABEL  PROCEDURE  ON  HASS-FILE-B 
USE  BEFORE  STANDARD  BEGINNING  UNIT  LABEL  PROCEDURE  ON  KASS-FILE-B 
USE  BEFORE  9E3INNING  LABEL  PROCEDURE  ON  D UHH Y -I -0- F I LE 
USE  BEFORE  ENDING  LABEL  PROCEDURE  ON  DUNHY-I-O-FILE 

B.  Execution: 

OPEN  SERIES  0»EN-TEST-1  fails  because  the  associated  DECLARATIVE 
procedures  do  not  execute  properly. 


See  Page  2-153  4.4  The  USE  Statement. 

S3210 

A.  Coapilation: 

Coapiler  messages  were  produced  for  a l l DEC L A RA TI VE  procedures 
uhich  referred  to  UNIT;  ho severs  these  aessages  were  WARNINGS 
and  all  CLOSE  UNIT  tests  were  deleted  fro*  the  program  so  these 
aessages  were  appropriate. 

8.  Execution; 

All  CLOSE  UNIT  tests  were  deleted  so  no  errors. 


SS211  through  S0212 

A.  Coapilation: 
No  errors. 

B.  Execution: 

No  errors. 


S1213 

A.  Coapilation: 

The  follouing  DECLARATIVE  procedures  produced  the  compile 
tine  aessages: 

WARNING  : FILE  NOT  ASSIGNED  TO  TAPE*** 

WARNING  : ROUTINE  NOT  APPLICABLE  TO  ANY  FILE*** 
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use  AFTER  STANDARD  BEGINNING  FILE  LABEL  PROCED JRE  3N  BASS-FILE 

USE  AFTER  STANDARD  BEGINNING  FILE  LA3EL  PROCEDURE  ON  DUBBT-H ASS-F I LE 

USE  AF1ER  STANDARD  ENDING  FILE  LABEL  PROCEDURE  ON  BASS-FILE 

USE  AFTER  STANDARD  ENDING  FILE  LABEL  PROCEDURE  ON  DUBBT-BASS-F I LE . 

B.  Execution: 

04-USE-TEST  fails  because  the  ending  file  laoel  procedure 
is  improperly  executed  when  the  file  is  CLOSEd;  however*  the  end- 
of-file  condition  has  not  been  reached. 

See  Page  2-144  4.1.4  f2)C  Standard  Close  File. 

07-USF-TEST  and  09-JSF-TEST  fail  because  the  associated  DECLARATIVE 
procedures  are  not  properly  executed. 

See  Page  2-150  4.4  The  USE  Statement. 


$8214 

A.  Compilation: 

No  errors. 

B.  Execut ion: 

No  errors. 

S3215 

A.  Compilation: 

The  following  stateaents  produced  the  coaoile  tine  message: 

WARNING  : CONSTRUCT  NOT  I BPLE BE NTE 0 « • * 

V»iUE  OF  ELEBENT  OF  LABEL-GROUP-1 
ELEBENT  IN  WORK-GROUP-1 * 

ELEBENT  IN  LABEL-GROUP-2 
ELEBENT  OF  WORK-GROUP-2. 

B.  Execution: 

The  test  VALUE  OF  ...  DUAL*  LABEL-TEST-1  fails  because  the  constructs 
shown  in  the  Compilation  section  above  were  not  iapleaented 
as  indicated  by  the  WARNING  compile  tiae  aessage. 

See  Page  2-142  3.7  The  VALUE  OF  Clause. 

$8216 

A.  Compilation: 
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The  following  DECLARATIVE  procedures  produced  the  coaipile  time 
■essages : 


WARNING  : fILE  NOT  ASSIGNED  TO  TAPE*** 

WARNING  : ROUTINE  NOT  APPLICABLE  TO  ANT  FILE*** 

USE  AFTER  ENDING  FILE  LABEL  PROCEDURE  ON  NASS-FILE 

USE  AFTER  ENDING  UNIT  LABEL  PROCEDURE  ON  N JL 1 1 -A A S S-Fl LE . 

B . Execut ion: 

CLOSE  WITH  LOCK  LOCK-TEST-3  fails  because  the 

DECLARATIVE  procedures  associated  with  the  files  da  not  execute 
properl y . 

See  Page  2-Hl  4.1. A (2)C  Standard  Close  File. 

S8217 

A.  Compilation: 

No’ errors . 

B.  Execution: 

LOCK-TEST-13  fails  because  the  ending  label  procedure  was 
executed  ewen  though  the  end-of-file  condition  was  not  reached 
when  the  file  was  CLOSEd. 

See  Page  2-144  4.1.4  (2)C  Standard  Close  File.  r 

SJ218 

A.  Compilation: 

No  errors. 

3.  Execution: 

No  errors. 
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SORT  MODULE  LEVEL  1 
ST101  through  ST1U 

A.  Compilation: 
No  errors. 

B.  Execution: 

No  errors. 

SORT  MODULE  LEVEL  2 

ST201  through  ST23? 

A.  Coepilation: 
No  errors. 

8.  Execution: 

No  errors. 
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TABLE 

HANDLING 

ADDOLE  LEVEL  1 

TA101 

through 

TH134 

1 A.  Compilation: 

No  errors. 

B.  Execution: 

No  errors . 

TABLE  HANDLING  ADD  ULE  LEVEL  2 

TH201  through  TH211 

A.  Coepilation: 

No  errors. 

B.  Execution: 

No  errors. 

TABLE  HANDLING  ADDULE  LEVEL  3 

■ TH301  throuqh  TH3T1 

I 

» 

A.  Coapilation: 

■ No  errors. 

B.  Execution: 

No  errors. 
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